Set syntaxes of Ethiopic characters.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 4820d910e73054c408a2d28be4b7e2de8acc625d..087b0ff92fcdb2f7227a0e36fa4962fff188f4b0 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -221,6 +221,11 @@
 ;; Ethiopic character set
 
 (modify-category-entry (make-char 'ethiopic) ?e)
+(modify-syntax-entry (make-char 'ethiopic) "w")
+(let ((chars '(?\e$(3$h\e(B ?\e$(3$i\e(B ?\e$(3$j\e(B ?\e$(3$k\e(B ?\e$(3$l\e(B ?\e$(3$m\e(B ?\e$(3$n\e(B ?\e$(3$o\e(B ?\e$(3%i\e(B ?\e$(3%t\e(B ?\e$(3%u\e(B ?\e$(3%v\e(B ?\e$(3%w\e(B ?\e$(3%x\e(B)))
+  (while chars
+    (modify-syntax-entry (car chars) ".")
+    (setq chars (cdr chars))))
 
 ;; European character set (Latin-1,2,3,4,5)